home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / t_os / komei4 / komei4.exe / ICON / MKICON1.HD6 < prev    next >
Text File  |  1993-07-04  |  5KB  |  338 lines
  1. ds_name        db    'MOJ\MKICON',0
  2.  
  3.  
  4. ; 画像よりアイコンを作る
  5. ; そのまま画像を入力する方法と
  6. ; 無理やりiconのサイズに合わせる方法がある
  7.  
  8. ;    GAZLD    より呼ばれて起きる｡
  9.  
  10. dt1:
  11.     call    sub_edi
  12.     dw    0
  13.     db    'END1',0
  14. dt2:
  15.     call    sub_edi
  16.     dw    0
  17.     db    'I_HA',0
  18. dt_ongak:
  19.     call    sub_edi
  20.     dw    0
  21.     db    'ONGAK',0
  22.  
  23. paint_wd:
  24.  
  25.     SET_P    dt1
  26.     SET_P    dt2
  27.     SET_P    dt_ongak
  28.  
  29.     WD_LEFT
  30.     ret
  31.  
  32. re_paint:
  33.      WD_CLS 0
  34.      BOX boxdt,3
  35.      MOZI    mozidt
  36.     KAKU    word ptr 300,1
  37.     KAKU    dword ptr 302,7
  38.     GO_P    dt1
  39.  
  40. be_called:
  41.  
  42.     YOMU    ax,300
  43.  
  44.     cmp    ax,400
  45.     je    neru
  46.     cmp    ax,500
  47.     je    okiru
  48.     ret
  49. neru:
  50.     WD_ERZ 0
  51.     WD_LEFT
  52.     ret
  53. okiru:
  54.     WD_WANT
  55.     jmp    re_paint
  56.  
  57. byebye:
  58.     mov    ah,25
  59.     mov    al,2
  60.     mov    bx,1
  61.     call    komei
  62.  
  63.     WD_ERZ 0
  64.     WD_LEFT
  65.  
  66.     mov    ah,27
  67.     call    komei
  68.  
  69.     KAKU    word ptr 300,1
  70.     KAKU    word ptr 302,2    ;一曲目のデータセット
  71.     CALL_P    dt_ongak
  72.  
  73.     KAKU    word ptr 300,2    ; 音楽チェンジ
  74.     CALL_P    dt1
  75.  
  76.     ret
  77.  
  78.  
  79. mouse_in:
  80.     call    ck_mouse    ;他のウインドウはおきているので
  81.     cmp    ch,1
  82.     je    erabu
  83.     cmp    ch,2
  84.     je    byebye
  85.     jmp    mouse_in
  86. erabu:
  87.     MOU    boxdt,3
  88.     cmp    bx,1
  89.     je    ok_1
  90.     jmp    mouse_in
  91. ok_1:
  92.     cmp    ax,1
  93.     je    mama
  94.     cmp    ax,2
  95.     je    kaete
  96.     cmp    ax,3
  97.     je    byebye
  98.     jmp    mouse_in
  99.  
  100. mama:
  101.     BOX    boxdt1,1
  102.     BOX    boxdt3,8
  103.     MOZI    mozidt1
  104.  
  105. mama1:
  106.     call    ck_mouse
  107.     cmp    ch,1
  108.     je    kkk1
  109.     cmp    ch,2
  110.     je    yameru
  111.     jmp    mama1
  112. kkk1:
  113.     MOU    boxdt3,8
  114.     cmp    bx,1
  115.     je    kkk2
  116.     jmp    mama1
  117.  
  118. kkk2:
  119.     shl    ax,5
  120.     call    kuso_ge
  121.     mov    [edi+4],ax
  122.     BOX    boxdt1,1
  123.     BOX    boxdt3,8
  124.     MOZI    mozidt2
  125.     call    kesu_ms
  126. mama2:
  127.     call    ck_mouse
  128.     cmp    ch,1
  129.     je    kkk3
  130.     cmp    ch,2
  131.     je    yameru
  132.     jmp    mama2
  133.  
  134. kkk3:
  135.     MOU    boxdt3,8
  136.     cmp    bx,1
  137.     je    kkk4
  138.     jmp    mama2
  139.  
  140. kkk4:
  141.     shl    ax,5
  142.     call    kuso_ge
  143.     mov    [edi+6],ax
  144.  
  145.     BOX    boxdt2,1
  146.  
  147.     call    kesu_ms
  148.  
  149.     call    kuso_ge
  150.  
  151.      mov ah,100          ; 指定されたサイズの箱を動かす
  152.      mov al,24
  153.      call komei
  154.  
  155.     call    ck_mouse
  156.     cmp    ch,2
  157.     je    yameru
  158.  
  159.     call    kuso_ge1
  160.     mov    eax,[esi]
  161.     mov    [edi],eax
  162.     mov    eax,[esi+4]
  163.     mov    [edi+4],eax
  164.  
  165.     KAKU    word ptr 300,2
  166.     KAKU    302,edi
  167.  
  168.     call    kesu_ms
  169.  
  170.     CALL_P    dt2    
  171.  
  172.     call    re_paint
  173.     jmp    mouse_in
  174.  
  175. kuso_ge:
  176.     call    sub_edi
  177.     dw    0,0,0,0
  178.  
  179. kuso_ge1:
  180.     call    sub_edi
  181.     dw    0,0,0,0
  182.  
  183. yameru:
  184.     call    kesu_ms
  185.     call    re_paint
  186.     jmp    mouse_in
  187.  
  188. kesu_ms:
  189.     M_KESUMS    
  190.  
  191. kaete:
  192.     BOX    boxdt1,1
  193.     MOZI    mozidt3
  194.  
  195. kaete1:
  196.  
  197.     call    ck_mouse
  198.     cmp    ch,2
  199.     jne    kaete1
  200.  
  201.     BOX    boxdt2,1
  202.  
  203.      mov ah,100
  204.      mov al,26
  205.      call komei
  206.  
  207.     call    ck_mouse
  208.     cmp    ch,2
  209.     je    yameru
  210.  
  211.     call    kuso_ge1
  212.     mov    eax,[esi]
  213.     mov    [edi],eax
  214.     mov    eax,[esi+4]
  215.     mov    [edi+4],eax
  216.     mov    ax,[edi+4]
  217.     mov    bx,[edi+6]
  218.     sub    ax,[edi]
  219.     sub    bx,[edi+2]
  220.     cmp    ax,bx
  221.     jae    kaete2
  222.     xchg    ax,bx
  223. kaete2:
  224.     mov    bx,ax
  225.     add    ax,[edi]
  226.     mov    [edi+4],ax
  227.     add    bx,[edi+2]
  228.     mov    [edi+6],bx
  229.  
  230.     KAKU    word ptr 300,3
  231.     KAKU    302,edi
  232.  
  233.     call    kesu_ms
  234.  
  235.     CALL_P    dt2    
  236.  
  237.     call    re_paint
  238.     jmp    mouse_in
  239.  
  240. ck_mouse:
  241.     M_KENMS
  242.  
  243. look_me:
  244.      call sub_esi         ; esi 固定です｡
  245.      dd 0,0
  246.      dw     1    ; ここが 1 の物は open start です｡
  247.          dw      0
  248.          dw  250,180,56+10,256+20,15,0,0,0
  249.  
  250.  
  251.  
  252. boxdt:
  253.     call sub_edi                               ; edi 固定です｡
  254.         dw    3,150,24,0,2,0,40,15,2,0
  255.  
  256. boxdt1:
  257.     call sub_edi
  258.         dw    1,250,180,0,0,0,20,15,4,0
  259. boxdt2:
  260.     call sub_edi
  261.         dw    1,250,180,0,0,0,20,0,0,0
  262. boxdt3:
  263.     call sub_edi
  264.         dw    8,3*8,20,0,20*2,3*8,0,15,2,0
  265.  
  266.  
  267. ; [count][sz_x][sz_y][off_x][off_y][+x][+y][f_col][b_col][s_no]
  268.  
  269. mozidt:
  270.     call sub_edi
  271.            dw    0        ;screen_no
  272.            dw    15      ; mozi_color
  273.            dw    0      ; 書き出し位置  x
  274.            dw    0      ;          y
  275.            dw    0      ; next offset x
  276.            dw    40      ; next offset y
  277.     
  278.                dw   3      ; gyo suu
  279.                    db    ' えのままで',0
  280.                    db    ' ちいさくする',0
  281.                    db    ' やめる',0
  282.  
  283. mozidt1:
  284.     call sub_edi
  285.            dw    0        ;screen_no
  286.            dw    15      ; mozi_color
  287.            dw    0      ; 書き出し位置  x
  288.            dw    0      ;          y
  289.            dw    0      ; next offset x
  290.            dw    20      ; next offset y
  291.     
  292.                dw   3      ; gyo suu
  293.                    db    'よこのおおきさ 32 の',0
  294.                    db    ' ',0
  295.                    db    '*1 *2 *3 *4 *5 *6 *7 *8',0
  296.  
  297. mozidt2:
  298.     call sub_edi
  299.            dw    0        ;screen_no
  300.            dw    15      ; mozi_color
  301.            dw    0      ; 書き出し位置  x
  302.            dw    0      ;          y
  303.            dw    0      ; next offset x
  304.            dw    20      ; next offset y
  305.     
  306.                dw   3      ; gyo suu
  307.                    db    'たてのおおきさ 32 の',0
  308.                    db    '  ',0
  309.                    db    '*1 *2 *3 *4 *5 *6 *7 *8',0
  310.  
  311. mozidt3:
  312.     call sub_edi
  313.            dw    0        ;screen_no
  314.            dw    15      ; mozi_color
  315.            dw    0      ; 書き出し位置  x
  316.            dw    0      ;          y
  317.            dw    0      ; next offset x
  318.            dw    20      ; next offset y
  319.     
  320.                dw   8      ; gyo suu
  321.                    db    'ICONにしたいところに',0
  322.                    db    'マウスをうごかします｡',0
  323.                    db    'ひだりのボタンをおしながら',0
  324.                    db    '四角をかいて下さい｡',0
  325.                    db    'よいところではなしてください｡',0
  326.                    db    'その部分がアイコンになります｡',0
  327.                    db    'みぎのボタンをおすと',0
  328.                    db    'はじまります｡',0
  329.  
  330.  
  331.  
  332. p_set:
  333.     M_P_SET
  334. p_call:
  335.     M_P_CALL
  336.  
  337.  
  338.